home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / util / fam_1_1 / part01 / MkFiles.rexx < prev    next >
OS/2 REXX Batch file  |  1990-02-16  |  900b  |  52 lines
  1. /* makefiles */
  2.  
  3. parse arg x y z w .
  4.  
  5. address command
  6.  
  7. 'makedir xyzzy'
  8. 'resident c:Copy pure'
  9. 'resident c:filenote pure'
  10. 'join Makefile Makefile Makefile as t:TestFile'
  11. 'copy Makefile t:'
  12. 'copy FAM.c t:'
  13.  
  14. do i = 1 to x
  15.     s = right(i, 10, '0');
  16.     say s
  17.     'echo >xyzzy/AA' || s fish
  18.     end
  19.  
  20. do i = 1 to y
  21.     s = right(i, 4, '0');
  22.     say s
  23.     'copy t:TestFile to xyzzy/NNN' || s
  24.     'filenote xyzzy/NNN' || s '"file ' || s || '"'
  25.     end
  26.  
  27. do i = 1 to z
  28.     s = right(i, 2, '0');
  29.     say s
  30.     'copy t:FAM.c xyzzy/W' || s
  31.     end
  32.  
  33. do i = 1 to w
  34.     s = right(i, 3, '0');
  35.     say s
  36.     'copy t:TestFile to xyzzy/B' || s || '.zoo'
  37.     'copy t:TestFile to xyzzy/B' || s || '.lhx'
  38.     'copy t:TestFile to xyzzy/B' || s || '.arc'
  39.     'copy t:TestFile to xyzzy/B' || s || '.txt'
  40.     end
  41.  
  42. do i = 1 to 5
  43.     'copy FAMuser1 xyzzy/U0'||i
  44.     end
  45.  
  46. do i = 6 to 9
  47.     'copy FAMuser2 xyzzy/U0'||i
  48.     end
  49.  
  50.  
  51.  
  52.